home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / pcalc07.sit / pCalc V0.7 / background_2793.txt < prev    next >
Text File  |  1988-11-14  |  890b  |  28 lines
  1. -- background: 2793 from stack: in.7
  2. -- bmap block id: 7666
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on mouseUp
  8.   global reg5
  9.   set lockScreen to true
  10.   if card field "operator" ="T" then
  11.     play boing
  12.     pass mouseUp
  13.   end if
  14.   if first character of card field "display" = "0" then put empty into card field "display"
  15.   if card field "operator" <> empty then
  16.     put return & card field 1 && card field "operator" after last line of card field "tape"
  17.     if card field "operator" = "T" then put empty into card field "operator"
  18.     put reg5 & card field 1 & card field "operator" into reg5
  19.     put empty into card field "display"
  20.     put empty into card field "operator"
  21.   end if
  22.   if short name of target = "." and card field 1 contains "." then
  23.     play boing
  24.     pass mouseUp
  25.   end if
  26.   put short name of target after card field "display"
  27. end mouseUp
  28.